home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / t / tornadoagahdonly1.dms / tornadoagahdonly1.adf / install < prev    next >
Text File  |  1994-04-19  |  3KB  |  103 lines
  1. cd >env:CurrentDir
  2. setenv    Title    Tornado Installation
  3. setenv    Body1    To start the installation of tornado, you need to specify*n
  4. setenv    Body2     a directory in which tornado will be placed. A drawer*n
  5. setenv    Body3    called 'Tornado' will be created in the directory you select*n*n
  6. setenv    Body4    If you wish to create a new directory, abort the installation*n
  7. setenv    Body5    create the directory and start again.
  8. requestchoice >env:Language    "$Title" "$Body1 $Body2 $Body3 $Body4 $Body5" "Continue|Abort"
  9.  
  10. IF $Language VAL EQ 0
  11.     skip    abort
  12. ENDIF
  13.  
  14. requestfile >env:Dest TITLE "Select a directory to install into" DRAWER "sys:" DRAWERSONLY NOICONS POSITIVE "Install"
  15. IF WARN
  16.     skip    abort
  17. ENDIF
  18.  
  19. cd $Dest
  20. cd >env:ParentDir
  21. IF NOT EXISTS Tornado
  22.     makedir Tornado
  23. ENDIF
  24. cd Tornado
  25. cd >env:Destination
  26. cd $CurrentDir
  27.  
  28. cd $Destination
  29. copy disk1:tornado tornado
  30. copy disk1:tornadoicon tornado.info
  31. protect tornado +s
  32. cd    $ParentDir
  33. copy disk1:icon tornado.info
  34. cd    $CurrentDir
  35.  
  36. copy disk1:dearc ram:
  37. ram:dearc disk1:datfiles.arc $Destination/
  38.  
  39. setenv    Body    """Please select a language*n for Tornado to use"
  40. setenv    Gadgets    """English|Spanish|Italian|German|French"
  41. requestchoice >env:Language    "$Title" $Body $Gadgets
  42. IF $Language VAL EQ 1
  43.     copy disk1:prefs.english $Destination/data/prefs.dat
  44. ENDIF
  45. IF    $Language VAL EQ 2
  46.     copy disk1:prefs.spanish $Destination/data/prefs.dat
  47. ENDIF
  48. IF    $Language VAL EQ 3
  49.     copy disk1:prefs.italian $Destination/data/prefs.dat
  50. ENDIF
  51. IF    $Language VAL EQ 4
  52.     copy disk1:prefs.german $Destination/data/prefs.dat
  53. ENDIF
  54. IF    $Language VAL EQ 0
  55.     copy disk1:prefs.french $Destination/data/prefs.dat
  56. ENDIF
  57.  
  58. ram:dearc disk1:flightdata.arc $Destination/
  59. ram:dearc disk1:exec.arc $Dest
  60.  
  61. ram:dearc disk2:maps.arc $Destination/
  62. ram:dearc disk2:music.arc $Destination/
  63.  
  64. ram:dearc disk3:screens.arc $Destination/
  65.  
  66. ram:dearc disk4:brushes.arc $Destination/
  67.  
  68. ram:dearc disk4:digipics1.arc $Destination/
  69.  
  70. ram:dearc disk5:digipics2.arc $Destination/
  71.  
  72. setenv    Title    Tornado Installation
  73. setenv    Body1    *nInstallation is now complete.*n
  74. requestchoice >env:Language    "$Title" "$Body1" "Ok"
  75.  
  76. skip    exit
  77.  
  78. lab    abort
  79. setenv    Title    Tornado Installation
  80. setenv    Body1    Installation aborted.
  81. requestchoice >env:Language    "$Title" "$Body1" "End"
  82.  
  83.  
  84. lab    exit    
  85. IF EXISTS ram:dearc
  86.     delete ram:dearc QUIET
  87. ENDIF
  88. unsetenv    Title
  89. unsetenv    Body
  90. unsetenv    Body1
  91. unsetenv    Body2
  92. unsetenv    Body3
  93. unsetenv    Body4
  94. unsetenv    Body5
  95. unsetenv    Gadgets
  96. unsetenv    Digipics
  97. unsetenv    Dest
  98. unsetenv    Destination
  99. unsetenv    CurrentDir
  100. unsetenv    ParentDir
  101. unsetenv    Language
  102.  
  103.